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-- FindSigs.Mesa Edited by Sandman on October 14, 1977 2:06 PM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
AltoFileDefs: FROM "altof iledefs", 
BcdDefs: FROM "bcddefs", 
ControlDefs: FROM "controldef s'\ 
ImageDefs: FROM "imagedefs", 
InlineDefs: FROM M inl inedefs" , 
IODefs: FROM "iodefs", 
OutputDefs: FROM "outputdef s", 
SegmentDefs: FROM "segmentdef s'\ 
StreamOefs: FROM "streamdef s" , 
StringDefs: FROM "stringdefs" , 
SymbolTableDefs: FROM "symboltabledef s" , 
SymDefs: FROM "symdefs" , 
SystemOefs: FROM "systemdefs" ; 

DEFINITIONS FROM AltoDefs, AUoFileDefs, BcdDefs, SegmentDefs: 

FindSigs: PROGRAM 

IMPORTS IODefs, OutputDefs, SegmentDefs, StreamOefs, StringDefs, SymbolTableDefs, 

SystemOefs = 
BEGIN 

file: FileHandle <- NIL; 

nsigs: CARDINAL; 

Sigltem: TYPE = RECORD [name: STRING, desc: CARDINAL]; 
sigdata: ARRAY [0..128) OF Sigltem; 

debugging: BOOLEAN ♦• FALSE; 

PrintSignals: PROCEDURE [name: STRING, gframe, gfi: CARDINAL] RETURNS [ngfi: CARDINAL] = 
BEGIN OPEN SymbolTableDefs, StreamOefs, SymDefs; 
tname: STRING ♦- [60]; 
modname: STRING ♦• [60]; 
ss: StringDefs.SubStringDescriptor; 
symseg: FileSegmentHandle; 
symbols: SymbolTableBase; 
sei: ISEIndex; 
modout: BOOLEAN <- FALSE; 
t, desc: CARDINAL; 
gfimask: CARDINAL <- 0; 

GetName: PROCEDURE [s: STRING, hti: HTIndex] = 
BEGIN OPEN symbols; 
SubStringForHash[@ss, hti]; 
s. length «- ; 

StringDefs .AppendSubString[s, @ss]; 
END; 

LOOPHOLE[gfimask, ControlDefs. ProcDesc] .gftindex <- gfi; 

BEGIN 

file «- NewFile[name, Read, OldFileOnly t 
FileNameError = > 

IF ~ debugging THEN 

BEGIN OPEN OutputDefs; 

PutString[name]; PutString[" (cannot be opened)"]; PutCR[]; 

ngfi ♦- 1 ; -- I guess 

GO TO openerror; 

END 

]; 

EXITS 

openerror => RETURN; 
END; 

[symseg, ngfi] <~ GetModule[f i le] ; 
IT symseg = NIL THEN 

BTGIN OPTN OutputDefs; 

PutStr ing[name]; PutString[" (cannot find symbols)"]; PutCR[]; 

RETURN 

END; 
symbols «- Acqu i reSymbolTabl e[Tab 1 eForSegment[symseg]] ; 
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nsigs ♦• 0; 

GetName[modname, symbols. hashforse[(symbols .bb+ FIRST[BTIndex]) . id]]; 

FOR sei «• symbols. f irstctxse[symbo1s. stHandle.outerCtx] , symbols. nextse[sei] UNTIL sei = ISENull DO 

n 

OPEN id: (symbols. seb+sei ) ; 
IF id.writeonce THEN 
WITH (symbols. seb+symbols.undertype[id. idtype]) SELECT FROM 
transfer »> 

IF (mode » signal OR mode * error) AND (symbols .seb+sei ) .ctxnum = symbols . stHandle.outerCtx 
► THEN 

BEGIN 

GetName[tname, (symbols . seb+sei) . htptr]; 

desc ♦• (symbols, seb+sei ). idvalue; 

t «• nsigs; 

WHILE t > DO 

IF sigdata[t-l].desc < desc THEN EXIT; 
sigdata[t] «• sigdata[t-l] ; 
t «• t-lj 
ENDLOOP; 
nsigs «• nsigs+1; 

sigdata[t]*- [SystemDefs .AllocateHeapString[tname. length], desc]; 
StringDefs .AppendString[sigdata[t]. name, tname]; 
END; 
ENDCASE; 
ENDLOOP; 

IODefs.WriteNumber[gframe, [8, FALSE .TRUE, 6]] ; 
IODefs.WriteString["B "]; 
IODefs.WriteLine[modname]; 

IF nsigs > THEN 

BEGIN OPEN OutputDefs; 
PutCR[j; 

PutNumber[gframe, [8, FALSE, TRUE , 6]] ; 
PutString["B "]; 
PutString[modname] ; PutCR[]; 
FOR t IN [0. .nsigs) DO 
PutString[" "]; 

PutNumber[sigdata[t].desc+gfimask, [8, FALSE, TRUE, 6]]; 
PutString["B "]; 

PutString[sigdata[t].name]; PutCR[]; 
ENDLOOP; 
END; 
ReleaseSymbolTable[symbols]; 
DeleteFileSegment[symseg] ; 
RETURN 
END; 

GetModule: PROCEDURE [f i 1 e: F i 1 eHandle] RETURNS [ 
symseg: FileSegmentHandle, ngfi: CARDINAL] = 
BEGIN 

pages: PageCount; 
bed: POINTER TO BcdDefs.BCD; 
mtb: CARDINAL; 

mti: BcdDefs.MTIndex = FIRST[8cdDef s.MTIndex] ; 
bedseg: FileSegmentHandle ♦• NewFi leSegment[f i le, 1 , l.Read] ; 
Swapln[bcdseg] ; 

bed <- Fi leSegmentAddress[bcdseg] ; 
IF (pages <- bcd.nPages) # 1 THEN 

BCGIN 

Unlock[bcdseg] ; 

MoveF i leSegment[bcdseg , 1, pages]; 

Swapln[bcdseg] ; 

bed «- F i leSegmentAddress[bcdseg] ; 

FND; 
IF bed. version ident # BcdDef s . Vers ionID THFN 

BFGIN 

OutputDefs. PutString[" bad version ID "]; 

Ou tpu tDefs .Pu tDec imal[bcd.versionident]; 

Unlock[bcdseg] ; 

Deleter i leSegment[ bedseg] ; 

RrTURN[NIL. 0] 

FND; 
TF bcd.nModules if I THFN 

BCGIN 
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OutputDefs.PutStr1ng[" too many modules: "]; 

0utputDefs.PutDecima1[bcd.nModules]; 

Unlock[bcdseg]; 

DeleteFileSegment[bcdseg]; 

RETURN[NIL, 0] 

END; 
mtb «• LOOPHOLE[bcd,CARDINAL]+bcd.mtOffset; 
ngfi <- (mtb+mti) .ngfi ; 

symseg ♦• FindSegment[bcdseg, (mtb+mti ). sseg, FALSE]; 
IF symseg # NIL THEN symseg. class «• symbols; 
Unlock[bcdseg]; 
DeleteFileSegment[bcdseg]; 
RETURN 
END; 

FindSegment: PROCEDURE [seg: FileSegmentHandle, segdesc: BcdDefs.SegDesc, long: BOOLEAN] 
RETURNS [FileSegmentHandle] * 
BEGIN 

ss: StringDefs.SubStringDescriptor; 
file: SegmentDefs.FileHandle; 
name: STRING; 

bed: POINTER TO BcdDefs.BCD ♦• FileSegmentAddress[seg] ; 
IF segdesc. file - BcdDef s.FTNull THEN RETURN[NIL] 
ELSE IF segdesc. file = BcdDef s .FTSelf THEN file «* seg. file 
ELSE 

BEGIN OPEN f: LOOPHOLE[bcd+bcd .f tOf f set , CARDINAL]+segdesc. f il e; 

name «- Sys temDefs . AllocateHeapString[f . name, length+4] ; 

ss «• [LOOPHOLE[bcd+bcd.ssOffset, STRING], f. name. off set , f. name . length]; 

StringDef s.AppendSubStri ng[ name, 0ss]; 

Check For Ex ten si on [name , " .bed" ]; 

file <- NewFile[name, Def aul tAccess , Def aul tVersion]; 

Sys temDefs . FreeHeapString[name]; 

END; 
RETURN[NewFileSegment[f ile, segdesc. base, 

segdesc. pages + (IF long THEN segdesc. extraPages ELSE 0), Read]]; 
END; 

CheckForExtension: PROCEDURE [name, ext: STRING] » 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .name. length) DO 

IF name[i] = ' . THEN RETURN; 

ENDLOOP; 
StringDef s .AppendString[name, ext]; 
RETURN 
END; 

parseloadmapline: PROCEDURE [line: STRING, file: STRING] RETURNS [gframe: CARDINAL] * 
BEGIN 

i: CARDINAL*- 0; 
c: CARDINAL; 

gframe <- 0; file. length «- 0; 
WHILE i < line. length AND line[i] ~ IN [ f 0..'9] DO 

i «- 1 + 1; 

ENDLOOP; 
WHILE i < line. length AND 1 ine[i ] IN [ , 0.. , 9] DO 

c + LOOPHOLE[l ine[i],CARDINAL]-L0OPHOLE['0, CARDINAL]; 

gframe <- In! ineDef s . BITSHIFT[gframe ,3] + c; 

i <~ i+1; 

ENDLOOP; 
WHILE i < line. length AND line[i] -IN [»a..'z] AND line[i] -IN ['A..'Z] DO 

i «- i + 1 ; 

ENDLOOP; 
WHILE i < line. length AND line[i] # CR AND line[i] it ' DO 

StringDefs.AppendChar[file, 1 ine[ i ]] ; 

i «- i + l ; 

CNDLOOP; 
RETURN; 
END; 

instring: STRING «- [200]; 
CR: CHARACTER = TODefs.CR; 

Done: SIGNAL = CODE; 

ProcessLoadmap: PROCEDURE * 
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BEGIN OPEN StreamDefs; 

ch: CHARACTER; 

EndOfFile, firstllne: BOOLEAN; 

infile: STRING ♦- [40]; 

root: STRING <- [40]; 

instream: StreamHandle; 

i, gframe: CARDINAL; 

gfi: CARDINAL* 1; 

ngfi: CARDINAL; 

GetToken[inf He]; 

IF infile. length = THEN SIGNAL Done; 

CheckForExtension[ infile, ". loadmap"]; 

instream «• New8yteStream[inf ile, Read]; 

FOR i IN [0. .infile. length) 00 
IF infile[i] * '. THEN EXIT; 
StringDefs.AppendChar[poot, inf ile[i]]; 
ENDLOOP; 

0utputDefs.0penOutput[root, ".signals."]; 

first! ine <- TRUE; 
EndOfFile ♦• FALSE; 
UNTIL EndOfFile DO 
instring. length «• 0; 
DO 

BEGIN 

ch «- instream. get[instream IStreamError s > 

IF error = StreamAccess THEN GO TO fileend]; 
EXITS 

fileend *> 
BEGIN 

EndOfFile <- TRUE; 

IF instring. length = THEN GO TO nomorestr ings; 
END; 
END; 
St ringDefs.AppendChar[ instring, ch]; 
IF ch = CR OR EndOfFile THEN EXIT; 
ENDLOOP; 

IF firstline AND instring[0] # 'N THEN 

BEGIN 

OutputDefs.PutString[ instring]; OutputDef s . PutCR[]; 

IODef s.WriteL ine[ instring ]; 

END 
ELSE 

BEGIN 

firstline <- FALSE; 

IF instring[0] tt 'N THEN GO TO nomorestrings ; 

gframe «- parseloadmapl ine[instring , name]; 

Check For Ex ten si on [name, " .bed"]; 

ngfi «- PrintSignal s[name, gframe, gfi]; 

gfi «- gf i + ngfi ; 

END; 

REPEAT 

nomorestrings s > instream. destroy[instream] ; 
ENDLOOP; 

OutputDefs.CloseOutput[]; 
END; 

GetToken: PROCEDURE [token: STRING] = 
BEGIN 

c: CHARACTER; 
token . length *- 0; 
UNTIL comstr .endof [corns tr] DO 

SELECT c ♦■ comstr. get[comstr] FROM 

TODefs.SP, CR O IT token. length # THEN RETURN; 
ENDCASE => Str i ngDefs . AppendChar[ token , c]; 
ENDI OOP; 
RETURN 
END; 
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— Main Body 

name: STRING ♦- [80]; 

comstr: StreamDef s .StreamHandle «• StreamDef s.NewByteStream[ M Com.Cm. w , Read]; 

START IODefs.StreamIO[NIL, NIL]; 

GetToken[name] ; 

GetToken[name]; 

DO ENABLE Done => EXIT; 

ProcessLoadmap[]; 

ENDLOOP; 
ImageDef s .StopMesa[] ; 

END,.. 



